EnigmA Amiga Run 1999 March/EnigmA AMIGA RUN 35 (1999)(G.R. Edizioni)(IT)[!][issue 1999-03].iso/earcd/devel/vbcc-68k-src/machines/amiga68k/libsrc/stdio/ftell.c

C/C++ Source or Header | 1999-01-01 | 244b | 14 lines

#include <stdio.h>

#include <proto/dos.h>

long ftell(FILE *f)
{
    long offset;
    offset=Seek((BPTR)f->filehandle,0L,0L);
    if(f->flags&_READ) offset-=f->count;
    if(f->flags&_WRITE) offset+=f->bufsize-f->count;
    return(offset);
}